perm filename BLAST[CMS,LCS] blob sn#093950 filedate 1974-03-22 generic text, type T, neo UTF8
00100	ARRAY F2,F3,F4,F5,F6,F7,F8,F9,F10(512);
00200	SYNTH(F1);1,1 2,.5 999;
00300	SYNTH(F2);3,1 4,.7 5,.9 6,.5 7,.8 8,.3 9,.3 10,.1 11,.1 999;
00400	SYNTH(F3);1,1 3,.9 5,.7 7,.5 9,.5 11,.3 13,.1 15,.1 999;
00500	SYNTH(F4);1,1 2,.8 4,.6 6,.6 8,.4 10,.2 12,.1 14,.1 999;
00600	SYNTH(F5);1,1 2,.9 3,.3 5,.5 7,.3 15,.1 17,.1 19,.1 21,.1 23,.1 999;
00700	SEG(F6);0,0 1,100;
00800	SEG(F7);0,0 1,10 .9,15 .3,25 .2,40 0,100;
00900	SEG(F8);0,0 .9,10 1,15 .8,20 .6,30 .5,80 .3,90 0,100;
01000	SEG(F9);0,0 .1,40 .2,60 .4,80 .6,90 1,100;
01100	SEG(F10);0,0 1,50 0,100;
01200	
01300	COMPILE;
01400	INSTRUMENT FUZZ;
01500	OSCIL(P4,MAG/P2,P5);
01600	OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
01700	OSCIL(U1,MAG*P3+U2,P6);
01800	OUTA←OUTA+U3; END;
01900	
02000	INSTRUMENT WUZZ;
02100	OSCIL(P4,MAG/P2,P5);
02200	OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
02300	RANDI(MAG*P10,MAG*P11);
02400	OSCIL(U1,MAG*P3+U3+U2,P6);
02500	OUTA←OUTA+U4; END;
02600	
02700	INSTRUMENT FAT;
02800	OSCIL(P4,MAG/P2,P5);
02900	RANDH(MAG*P7,MAG*P8);
03000	OSCIL(U1,MAG*P3+U2,P6);
03100	OUTA←OUTA+U3; END;
03200	
03300	INSTRUMENT ZGULL;
03400	OSCIL(P4,MAG/P2,P5);
03500	OSCIL(1,MAG/P2,P6);
03600	OSCIL(U1*(1-U2),MAG*P3,P7);
03700	OSCIL(U1*U2,MAG*P3,P8);
03800	OUTA←OUTA+U3+U4; END;
03900	FINISH;